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Subroutine ERFRTINI ( Array_addr, Array_size ) 
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Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
* TRANSFERRED, 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eppokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO hry: 


BILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS 
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Author: Sharon Reynolds Creation date: 29-Mar-1983 
Functional Description: 
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This module initializes data structures that contain the 
device class, type, version number, and the transfer vector 
offsets for the devices supported by the ERFRLTIM image. 


Modified By: 
v03-001 SARO127 Sharon A. Reynolds, 7-Sep-1983 


Added initialization of a common text area for 
device registers used by both the DR750/DR780 modules. 
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Include files 
Include ‘SRC$:DR32COM.FOR /nolist’ 
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REALTIME DEVICE CLASS AND TYPES 
“ Parameter DC$_REALTIME = '00000060'X 
PARAMETER DT$_LPA11 = '00000001'X ' LPA-11 
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1 =2007 1388 90:06:38 VAX-11 FORTRAN 


-Sep-1 DISKSVMSMASTER 
ARAMETER DTS$_DR a "x ! DR? 
PARAMETER BTScpR TSO a 098 gy ! ts 
PARAMETER DTS_DRIIW = ‘OF ..0004'x ' pRIIW 
PARAMETER DTS_PCLIIR = ‘Vy 5°x H set RECEIVER (CSS) 
PARAMETER DIS-PCLIIT = “0 6°x | PCLIT TRANSATTER (CSS) 
ARAMETER DTS_DORIIC = ° bf ! DRI1C PARALLEL INTERFA 
ARAMETER DT$_BS_DTO7 = ' ae : PARALLEL INTERFACE ON DMF =32 
PARAMETER pte xt Pct 1 18 Ti 009'X ! PCL=11B (DECNET and NONDECNET mode CSS) 
PARAMETER DT$_XI-DR11C = "OOOOQO0A'X | PARALLEL INTERFACE ON DMF-3 
Parameter V1 = 1 ! device module version number 
Parameter Maxtypes = 7 
Integer*4 Array_addr, Array_size 
Integer*2 Real_time_codes ( 4 * Maxtypes ) 


The following table consist of: 
DEVICE TYPE, DEVICE CLASS, MODULE VERSION, TRANSFER VECTOR OFFSET 


The MODULE VERSION is used to determine if the module in this image 
is the one to use. This is accomplished the root image comparing 
this value against the value in the master tables in the root image. 


The TRANSFER VECTOR OFFSET is the index to the transfer vector to 
be used for a specific device type. For example, the transfer 
yooters it a image are ordered as: 
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LTIME, 


Array_addr = ZLOC (Real_time_codes(1)) 
Array_size = Maxtypes 


Initialize the DR32 common. 
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JINITREAL.FOR: 1° 


V1DR_SL(O) 
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‘SUCCESSFUL COMPLETION®' 
"COMMAND STARTED* 
"INVALID PTE®' 

*COMMAND IN®' 
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165 VIDR_SL(4) = ‘FAR-END DISABLED*" 

198 VIDR_SL(S) = "SELF TEST® 

16 VIDE ot (8) = "RANGE ERROR®*’ 

ib VIDR_SL(7) = "UNALIGNED QUEUE ERROR®' 

18 te oe = ‘INVALID COMMAND PACKET®' 

170 VIDRSL(9) = "FREE QUEUE EMPTY®' 

171 VIDR_SL(10) = ‘RANDOM ENABLE®' 

\7¢ VIDR_SL(11) = ‘INVALID DDI COMMAND * * 

17 Mt eat = "LENGTH ERROR®* 

174 VIDR_SL(135) = ‘DRIVER ABORT®' 

Af? VIDR_SL(14) = "DDI PARITY ERROR®' 

138 V2DR_SL(21) = "NON-EXISTENT REGISTER*' 

178 V2DR_SL(¢ $3 = "LOG FAR-END REGISTERS*" 

179 V2DR7SL(23) = "FAR-END ERROR® 
313) VIDR_CB(1) = “BASE VA OF COMMAND BLOCK’ 

36 A mE HT 
387 ViDR_CB(3) = “SVAPTE OF COMMAND BLOCK BASE VAt' 
b188 V1DR_BB(1) = "BASE VA OF BUFFER BLOCK*' 
Bige viene eG: = "LENGTH OF BUFFER BLOCK (BYTES)*'° 
3474 V1IDR_BB(S) = "SVAPTE OF BUFFER BLOCK BASE VA®' 
0189 Return 
0190 End 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 DE 293 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 472 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL 56 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
32 600 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 1421 


ENTRY POINTS 
Add:ess Type Name 


0-00000000 ERFRTINI 
VARIABLES 
Address Type Name Address Type Name 


| 
= "LENGTH OF COMMAND BLOCK (BYTES)*' 
AP-000000048 I1*4 ARRAY_ADDR AP-00000008@ I*4 ARRAY_SIZE 


ERFRTINI $ep-1984 00:04:34 VAX=11 FORTRAN V3.4-56 Pe 
if se0-1984 ee: DISKSVMSMASTER: CERF .SRCJINITREAL. FOR; + as 
ARRAYS 
Address Type Name Bytes Dimensions 
I1*2 REAL_TIME_CODES 39 ( : 
CHAR V1DR_BB (3) 
CHAR V1DR_CB 7 (3) 
CHAR V1IDR_SL 345 (0:14) 
CHAR V2DR_SL 66 (21:23) 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$: INITREAL/OBJ=0BJ$: INITREAL MSRC$:INITREAL 


/CHECK=(NOBOUNDS ,0 OVERFLOW NOUNDERF LOW) 
/DEBUG=(NOSYMBOL§, TRACEBACK) 

/STANDARD= (NOS YNTAX NOSDURCE FORM) | 

/SHOW= (NOPREPROCESSOR,NOINCLODE ,MA 

/°77  /NOG_FLOATING wie SOPTIATZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE 


COMPILATION STATISTICS 


Run Time 1-68 seconds 
flessed Time: 5.39 seconds 
Page Faults: 124 

Dynamic Memory: 160 pages 


/NOMACHINE_CODE /CONTINUATIONS=19 
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